//==============================================================================
// Ragnarok Online Divorce Event Script   2005-05-23     by Athena Wiki & Dev
//==============================================================================

nif_in.gat,190,112,5	script	pc]	738,{
	if(!PartnerId) {
		mes "[pc]]";
		mes "سسءKH᳣̫O@ӤHC";
		mes "I檺߱uOȮɦӤwA";
		mes "I檺ܾi@d˩OH";
		mes "̪ڤpc]ܨwI";
		close;
	}
	mes "[pc]]";
	mes "ݰ_ӪӦn... ";
	mes "ᮬƶ? AnDڤ@I";
	mes "Qıo֪HA";
	mes "pc]墨ؤH";
	mes "@I쳣SAسس";
	next;
	mes "[pc]]";
	mes "䥦b@ݧAnFA";
	mes "BᩯֶܡHnQ";
	mes "RR... ڤֳM";
	mes "bRB§I";
	mes "õ۵LƪD";
	next;
	mes "[pc]]";
	mes "SAAӨo̤]O";
	mes "@ةRBAڤ]DOQn";
	mes "ܥӤHͪNӡA";
	mes "NOӿեëHA";
	mes "]`@ѷ|\٪KI";
	next;
	mes "[pc]]";
	mes "k²! ҿתBä]O";
	mes "@ءAunU";
	mes "pc]ܥiHܮe";
	mes "A... AѶ?";
	mes "ۤvLۦۥѪͬO!!";
	next;
	mes "[pc]]";
	mes "]ݭn誺PNA";
	mes "@NܡA]\|YJsʱaA";
	mes "n}";
	mes "... nA?";
	mes "iHϱBõLĳ...!";
	next;
	if(select("Aڲ{bܩ","AڷQۤvLͬ")==1) {
		mes "[pc]]";
		mes "AAQ... Q!!";
		mes "`@ѷ|ᮬAӧ";
		mes "pc]O!! @A";
		mes "|h[!!";
		close2;
		warp "niflheim",169,162;
		end;
	}
	mes "[pc]]";
	mes "naA䥦ݭnAun";
	mes "Aߤ2,500,000NFA";
	mes "^쵲BeͬaA";
	mes "iHa? ? Oo˶?";
	mes "OѰB?";
	next;
	if(select("...ڦAҼ{@U","ڷQnIXNѰB")==1) {
		mes "[pc]]";
		mes "AҼ{OAH᳣̫O";
		mes "@ӤH! ߸̪ǳƤθǳơA";
		mes "̳ǳƦnFAӧڧa...";
		mes "سسسس.....";
		close;
	}
	if(Zeny<2500000) {
		mes "[pc]]";
		mes "ڻL2,500,000ZenyFa!";
		mes "oOFUDHӪܪ۷NCsǿ]S";
		mes "N@lL۳QͬaC";
		mes "سسءKK";
		close;
	}
	set '@name$,getcharname(PartnerId);
	mes "[pc]]";
	mes "سسءAA{bO@ӤHF!";
	mes "ۥѤFO!";
	mes "I߱߶}!";
	mes "nP¤pc].....!";
	close2;
	set '@name$,getcharname(divorce(0));	//UFhi좰^WeynD
	heal -Hp+1,-Sp;
	set Zeny,Zeny-2500000;
	announce strcharinfo(0)+ " M " +'@name$+ " BFC",0x1a;
	end;
}

